home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmiSoft / Dev / lang / amigatalk.lha / prelude / ValueModel.p < prev   
Encoding:
Text File  |  2003-10-08  |  3.0 KB  |  89 lines
  1. pTempVar <- <primitive 110 18 >
  2. <primitive 112 pTempVar 1  " isBuffering " \
  3.   #( #[ 16r5C 16rF3 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " with:with:compute: " \
  7.   #( #[ 16r40 16r23 16r05 16r1E 16r20 16r21 16r22 16r83 16r01 16r82 16r02 \
  8.         16rF3 16rF5] \
  9.     #( #BlockValue #with:with:with: #block:arguments:  )) >
  10.  
  11. <primitive 112 pTempVar 3  " with:compute: " \
  12.   #( #[ 16r40 16r22 16r05 16r1E 16r20 16r21 16r82 16r01 16r82 16r02 16rF3 \
  13.         16rF5] \
  14.     #( #BlockValue #with:with: #block:arguments:  )) >
  15.  
  16. <primitive 112 pTempVar 4  " receive:with: " \
  17.   #( #[ 16r40 16rE2 16r03 16r06 16r23 16r21 16r24 16r82 16r01 16rF3 16r05 \
  18.         16r1E 16r20 16r22 16r82 16r02 16r82 16r03 16rF3 16rF5] \
  19.     #( #BlockValue #perform:with: #with:with: #block:arguments:  )) >
  20.  
  21. <primitive 112 pTempVar 5  " receive: " \
  22.   #( #[ 16r40 16rE1 16r02 16r05 16r22 16r21 16r81 16r01 16rF3 16r05 16r1E \
  23.         16r20 16r81 16r02 16r82 16r03 16rF3 16rF5] \
  24.     #( #BlockValue #perform: #with: #block:arguments:  )) >
  25.  
  26. <primitive 112 pTempVar 6  " compute: " \
  27.   #( #[ 16r40 16r21 16r05 16r1E 16r20 16r81 16r01 16r82 16r02 16rF3 16rF5 \
  28.        ] \
  29.     #( #BlockValue #with: #block:arguments:  )) >
  30.  
  31. <primitive 112 pTempVar 7  " retractInterestsFor: " \
  32.   #( #[ 16r20 16r30 16r21 16r82 16r01 16rF2 16rF5] \
  33.     #( #value #retractInterestIn:for:  )) >
  34.  
  35. <primitive 112 pTempVar 8  " onChangeSend:to: " \
  36.   #( #[ 16r20 16r30 16r22 16r21 16r83 16r01 16rF2 16rF5] \
  37.     #( #value #expressInterestIn:for:sendBack:  )) >
  38.  
  39. <primitive 112 pTempVar 9  " asValue " \
  40.   #( #[ 16r20 16rF3 16rF5] \
  41.     #(  )) >
  42.  
  43. <primitive 112 pTempVar 10  " valueUsingSubject: " \
  44.   #( #[ 16r21 16rA5 16rF3 16rF5] \
  45.     #(  )) >
  46.  
  47. <primitive 112 pTempVar 11  " value: " \
  48.   #( #[ 16r20 16r21 16r81 16r00 16rF2 16r20 16r31 16r81 16r02 16rF2 16rF5 \
  49.        ] \
  50.     #( #setValue: #value #changed:  )) >
  51.  
  52. <primitive 112 pTempVar 12  " value " \
  53.   #( #[ 16r20 16r30 16r81 16r01 16rF3 16rF5] \
  54.     #( 'value' #subclassResponsibility:  )) >
  55.  
  56. <primitive 112 pTempVar 13  " setValue: " \
  57.   #( #[ 16r20 16r30 16r81 16r01 16rF2 16rF5] \
  58.     #( 'setValue:' #subclassResponsibility:  )) >
  59.  
  60. <primitive 112 pTempVar 14  " releaseParts " \
  61.   #( #[ 16r5D 16rF3 16rF5] \
  62.     #(  )) >
  63.  
  64. <primitive 112 pTempVar 15  " release " \
  65.   #( #[ 16r20 16r80 16r00 16rF2 16r20 16r90 16r01 16rF2 16rF5] \
  66.     #( #releaseParts #release  )) >
  67.  
  68. <primitive 112 pTempVar 16  " dependents " \
  69.   #( #[ 16r20 16r90 16r00 16rF3 16rF5] \
  70.     #( #dependents  )) >
  71.  
  72. <primitive 112 pTempVar 17  " initialize " \
  73.   #( #[ 16r20 16rF3 16rF5] \
  74.     #(  )) >
  75.  
  76. <primitive 112 pTempVar 18  " new " \
  77.   #( #[ 16r20 16r90 16r00 16r80 16r01 16rF3 16rF5] \
  78.     #( #new #initialize  )) >
  79.  
  80. <primitive 98 #ValueModel \
  81.   <primitive 97 #ValueModel #Model #AmigaTalk:General/ValueModel.st \
  82.    #(  ) \
  83.    #( #isBuffering #with:with:compute: #with:compute: #receive:with:  \
  84.        #receive: #compute: #retractInterestsFor: #onChangeSend:to: #asValue  \
  85.        #valueUsingSubject: #value: #value #setValue: #releaseParts #release #dependents  \
  86.        #initialize #new  ) \
  87.   pTempVar 5 7 > #ordinary >
  88.  
  89.